home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / mui / mui38dev_bb2.lha / EFMUILib / Examples / EFBalancing.asc next >
Text File  |  1998-02-03  |  5KB  |  213 lines
  1. ;
  2. ;Balancing demo (c)1995, Stefan Stuntz
  3. ;Blitz 2 Version (c)1997/98 by Vivid Imagination
  4. ;
  5.  
  6. ;Set maximum MUIObjects to 55
  7. ;Don't forget to include the resident mui.res
  8.  
  9. WBStartup
  10.  
  11. MUIApplicationTitle       "BalanceDemo"
  12. MUIApplicationVersion     "$VER: BalanceDemo 19.5 (12.02.97)"
  13. MUIApplicationCopyright   "(c)1995, Stefan Stuntz"
  14. MUIApplicationAuthor      "Stefan Stuntz"
  15. MUIApplicationDescription "Show balancing groups"
  16. MUIApplicationBase        "BALANCEDEMO"
  17.  
  18.   MUIAddTags 0,#MUIA_Frame,#MUIV_Frame_Group,#MUIA_Weight,15
  19.  
  20.   MUIAddTags 1,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_Weight,50
  21.   MUINewObject 1,"Rectangle.mui",0
  22.  
  23.   MUIAddTags 2,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_Weight,100
  24.   MUINewObject 2,"Rectangle.mui",0
  25.  
  26.   MUIAddTags 3,#MUIA_CycleChain,1
  27.   MUIBalanceObject 3
  28.  
  29.   MUIAddTags 4,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_Weight,200
  30.   MUINewObject 4,"Rectangle.mui",0
  31.  
  32. MUIAddObjsVGroup 0,1,2,3,4
  33. MUICreateVGroup 0
  34. MUIAddObjHGroup 10,0
  35.  
  36. MUIAddTags 5,#MUIA_CycleChain,1
  37. MUIBalanceObject 5
  38. MUIAddObjHGroup 10,5
  39.  
  40.     MUIAddTags 6,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_ObjectID,123
  41.     MUINewObject 6,"Rectangle.mui",0
  42.  
  43.     MUIAddTags 7,#MUIA_CycleChain,1
  44.     MUIBalanceObject 7
  45.  
  46.     MUIAddTags 8,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_ObjectID,456
  47.     MUINewObject 8,"Rectangle.mui",0
  48.  
  49.   MUIAddObjsHGroup 9,6,7,8
  50.   MUICreateHGroup 9
  51.   MUIAddObjVGroup 50,9
  52.  
  53.     MUIAddTags 11,#MUIA_Frame,#MUIV_Frame_Text
  54.     MUINewObject 11,"Rectangle.mui",0
  55.  
  56.     MUIAddTags 12,#MUIA_CycleChain,1
  57.     MUIBalanceObject 12
  58.  
  59.     MUIAddTags 13,#MUIA_Frame,#MUIV_Frame_Text
  60.     MUINewObject 13,"Rectangle.mui",0
  61.  
  62.     MUIAddTags 14,#MUIA_CycleChain,1
  63.     MUIBalanceObject 14
  64.  
  65.     MUIAddTags 15,#MUIA_Frame,#MUIV_Frame_Text
  66.     MUINewObject 15,"Rectangle.mui",0
  67.  
  68.     MUIAddTags 16,#MUIA_CycleChain,1
  69.     MUIBalanceObject 16
  70.  
  71.     MUIAddTags 17,#MUIA_Frame,#MUIV_Frame_Text
  72.     MUINewObject 17,"Rectangle.mui",0
  73.  
  74.     MUIAddTags 18,#MUIA_CycleChain,1
  75.     MUIBalanceObject 18
  76.  
  77.     MUIAddTags 19,#MUIA_Frame,#MUIV_Frame_Text
  78.     MUINewObject 19,"Rectangle.mui",0
  79.  
  80.   MUIAddObjsHGroup 20,11,12,13,14,15,16,17,18,19
  81.   MUICreateHGroup 20
  82.   MUIAddObjVGroup 50,20
  83.  
  84.       MUIAddTags 21,#MUIA_Frame,#MUIV_Frame_Text
  85.       MUINewObject 21,"Rectangle.mui",0
  86.  
  87.       MUIAddTags 22,#MUIA_CycleChain,1
  88.       MUIBalanceObject 22
  89.  
  90.       MUIAddTags 23,#MUIA_Frame,#MUIV_Frame_Text
  91.       MUINewObject 23,"Rectangle.mui",0
  92.  
  93.     MUIAddObjsHGroup 24,21,22,23
  94.     MUICreateHGroup 24
  95.     MUIAddObjHGroup 30,24
  96.  
  97.     MUIAddTags 25,#MUIA_CycleChain,1
  98.     MUIBalanceObject 25
  99.     MUIAddObjHGroup 30,25
  100.  
  101.       MUIAddTags 26,#MUIA_Frame,#MUIV_Frame_Text
  102.       MUINewObject 26,"Rectangle.mui",0
  103.  
  104.       MUIAddTags 27,#MUIA_CycleChain,1
  105.       MUIBalanceObject 27
  106.  
  107.       MUIAddTags 28,#MUIA_Frame,#MUIV_Frame_Text
  108.       MUINewObject 28,"Rectangle.mui",0
  109.  
  110.     MUIAddObjsHGroup 29,26,27,28
  111.     MUICreateHGroup 29
  112.     MUIAddObjHGroup 30,29
  113.  
  114.   MUIAddTags 30,#MUIA_Frame,#MUIV_Frame_Group
  115.   MUICreateHGroup 30
  116.   MUIAddObjVGroup 50,30
  117.  
  118.     MUIAddTags 32,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_Weight,50
  119.     MUINewObject 32,"Rectangle.mui",0
  120.     MUIAddObjHGroup 31,32
  121.  
  122.     MUIAddTags 33,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_Weight,100
  123.     MUINewObject 33,"Rectangle.mui",0
  124.     MUIAddObjHGroup 31,33
  125.  
  126.     MUIAddTags 34,#MUIA_CycleChain,1
  127.     MUIBalanceObject 34
  128.     MUIAddObjHGroup 31,34
  129.  
  130.     MUIAddTags 35,#MUIA_Frame,#MUIV_Frame_Text,#MUIA_Weight,200
  131.     MUINewObject 35,"Rectangle.mui",0
  132.     MUIAddObjHGroup 31,35
  133.  
  134.   MUIAddTags 31,#MUIA_Frame,#MUIV_Frame_Group
  135.   MUICreateHGroup 31
  136.   MUIAddObjVGroup 50,31
  137.  
  138.     MUISimpleButton 37,"Also"
  139.  
  140.     MUIAddTags 38,#MUIA_CycleChain,1
  141.     MUIBalanceObject 38
  142.  
  143.     MUISimpleButton 39,"Try"
  144.  
  145.     MUIAddTags 40,#MUIA_CycleChain,1
  146.     MUIBalanceObject 40
  147.  
  148.     MUISimpleButton 41,"Sizing"
  149.  
  150.     MUIAddTags 42,#MUIA_CycleChain,1
  151.     MUIBalanceObject 42
  152.  
  153.     MUISimpleButton 43,"With"
  154.  
  155.     MUIAddTags 44,#MUIA_CycleChain,1
  156.     MUIBalanceObject 44
  157.  
  158.     MUISimpleButton 45,"Shift"
  159.  
  160.   MUIAddObjsHGroup 36,37,38,39,40,41,42,43,44,45
  161.   MUIAddTags 36,#MUIA_Frame,#MUIV_Frame_Group
  162.   MUICreateHGroup 36
  163.   MUIAddObjVGroup 50,36
  164.  
  165.     MUILabel 47,"Label 1:",0
  166.     MUIAddObjHGroup 46,47
  167.  
  168.     MUIAddTags 48,#MUIA_Text_Contents,Null("data...")
  169.     MUINewObject 48,"Text.mui",0
  170.     MUIAddObjHGroup 46,48
  171.  
  172.     MUIAddTags 49,#MUIA_CycleChain,1
  173.     MUIBalanceObject 49
  174.     MUIAddObjHGroup 46,49
  175.  
  176.     MUILabel 51,"Label 2:",0
  177.     MUIAddObjHGroup 46,51
  178.  
  179.     MUIAddTags 52,#MUIA_Text_Contents,Null("more data...")
  180.     MUINewObject 52,"Text.mui",0
  181.     MUIAddObjHGroup 46,52
  182.  
  183.   MUIAddTags 46,#MUIA_Frame,#MUIV_Frame_Group
  184.   MUICreateHGroup 46
  185.   MUIAddObjVGroup 50,46
  186.  
  187. MUICreateVGroup 50
  188. MUIAddObjHGroup 10,50
  189. MUICreateHGroup 10
  190.  
  191. MUIAddTags 53,#MUIA_Window_Width,(-200-(50)),#MUIA_Window_Height,(-200-(50))
  192. MUICreateWindow 53,"Balancing Groups","BALA",10
  193.  
  194. MUIAddSubWindow 53
  195.  
  196. If MUICreateApplication<>True Then End
  197.  
  198. MUINotifyApp 53,#MUIA_Window_CloseRequest,1,-1
  199.  
  200. MUIOpenWindow 53
  201.  
  202. ;Standard loop
  203.  
  204. Repeat
  205.   ev.l=MUIWaitEvent
  206. Until ev=-1
  207.  
  208. ;Bye Bye
  209.  
  210. MUICloseWindow 53
  211.  
  212. End
  213.